home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / www / IBrowseScripts.lha / ibrowsescripts / Switch_icons < prev    next >
Text File  |  1999-03-04  |  739b  |  30 lines
  1. /* Install.rexx
  2.  
  3. */
  4. OPTIONS RESULTS
  5. OPTIONS FAILAT 10
  6.     ADDRESS 'COMMAND'
  7. IF EXISTS('multiview')THEN 'Run multiview newmailicons.iff'
  8. 'wait 2'
  9. call addlib('libs:rexxreqtools.library',0,-30)
  10. lib= show('Libs',"rexxreqtools.library")
  11.  
  12.  
  13. ADDRESS 'COMMAND'
  14.  
  15. IF ~lib THEN say 'Could not find rexxreqtools.library!!!'
  16.  
  17. what_but='First try|Fun|Strict|Yamish|Cancel'
  18. where_txt='select iconset for newmail'
  19.  
  20.  
  21.     sel=rtezrequest(where_txt,what_but,title,'rtez_defaultresponse=1') 
  22.     IF sel=0 then Exit
  23.     ADDRESS 'COMMAND'
  24.     IF sel=1 THEN 'copy first_try/#?  IBROWSE:REXX/IBS_Images' 
  25.     IF sel=2 THEN 'copy fun/#?  IBROWSE:REXX/IBS_Images' 
  26.     IF sel=3 THEN 'copy strict/#?  IBROWSE:REXX/IBS_Images'
  27.     IF sel=4 THEN 'copy yamish/#?  IBROWSE:REXX/IBS_Images'  
  28.  
  29.  
  30.